home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / GoldED Tools / SASC_GoldED / smake.ged < prev   
Encoding:
Text File  |  1996-09-27  |  1.8 KB  |  81 lines
  1. /* smake.ged V1.01  inspired by dmake.ged of Dietmar Eilert
  2.    written in 1994 by Roland Schwingel
  3.                       Lilienthalstraße 9
  4.                       92421 Schwandorf
  5.                       Germany
  6.  
  7.    Description:
  8.    Calls smake utility (SAS/C).
  9.    When there is a makefile in the current drawer then 'smake'
  10.    is invoked else the current file is compiled using 'sc'.
  11. */
  12.  
  13. OPTIONS RESULTS                             /* enable return codes     */
  14.  
  15. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  16.     address 'GOLDED.1'
  17.  
  18. 'LOCK CURRENT QUIET'                        /* lock GUI, gain access   */
  19. OPTIONS FAILAT 6                            /* ignore warnings         */
  20. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  21.  
  22. /* ------------------------- INSERT YOUR CODE HERE: -------------------- */
  23.  
  24. arg scopts
  25.  
  26. 'QUERY CAT'
  27. isGerman = (result = "deutsch")
  28.  
  29. 'QUERY MODIFY'
  30.  
  31. if (result = 'TRUE') then do
  32.  
  33.     if (isGerman) then
  34.      'REQUEST BODY="Datei wurde verändert. Speichern ?" BUTTON="Speichern|Nicht speichern"'
  35.     else
  36.      'REQUEST BODY="File has been changed. Save it ?" BUTTON="Save|Do not save"'
  37.  
  38.     if (result = 1) then
  39.      'SAVE ALL'
  40. end
  41.  
  42. 'QUERY PATH VAR PATH'
  43.  
  44. if ((right(path, 1) ~= ':') & (right(path,1) ~= '/')) then
  45.     path = path || '/'
  46.  
  47. if (exists(path || 'makefile')) then
  48. do
  49.      shell
  50.      pragma('D', path)
  51.      'smake' scopts
  52. end
  53. else 
  54. do
  55.      'QUERY DOC VAR WINNAME'
  56.      shell
  57.      pragma('D',path)
  58.      'sc' winname
  59. end
  60.  
  61. shell
  62. if (isGerman) then
  63.     say "Fertig. (RETURN drücken)."
  64. else
  65.     say "Done. (press RETURN)."
  66.  
  67. pull dummy
  68.  
  69.  
  70. /* ---------------------------- END OF YOUR CODE ----------------------- */
  71.  
  72. 'UNLOCK' /* VERY important: unlock GUI */
  73. EXIT
  74.  
  75. SYNTAX:
  76.  
  77. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  78. 'UNLOCK'
  79. EXIT
  80.  
  81.